home *** CD-ROM | disk | FTP | other *** search
/ Amiga Format CD 23 / Amiga Format AFCD23 (Feb 1998, Issue 107).iso / -in_the_mag- / cologne / mpegagui / tagedit.gc < prev    next >
Text File  |  1997-12-06  |  4KB  |  169 lines
  1. G4C
  2.  
  3.  
  4. ;================================================================
  5. ;| Read the doc on how to use this script together with MP3Tool |
  6. ;================================================================
  7.  
  8.  
  9. WINBIG -1 -1 394 200 'MP3 TAG Editor by Kozmic'
  10. WinType 11110001
  11. WinSmall -1 -1 400 200
  12.  
  13. xOnLoad
  14. Extract TAGEdit.gc GuiPath EditPath
  15. JoinFile $EditPath 'Genres.txt' genresfile
  16. editdefaultpath = 'MP3:'
  17. JoinFile $EditPath 'MP3Tool' editgetinfo
  18. LVUse TAGEdit.gc 7
  19. LVChange $genresfile
  20. GuiOpen TAGEdit.gc
  21.  
  22.  
  23. xOnClose
  24. GoSub TAGEdit.gc Cleanup
  25. GuiQuit TAGEdit.gc
  26.  
  27.  
  28. xOnKey #27
  29. GoSub TAGEdit.gc Cleanup
  30. GuiQuit TAGEdit.gc
  31.  
  32. xOnKey 't'
  33. SetGad TAGEdit.gc 1 On
  34.  
  35. xOnKey 'a'
  36. SetGad TAGEdit.gc 2 On
  37.  
  38. xOnKey 'l'
  39. SetGad TAGEdit.gc 3 On
  40.  
  41. xOnKey 'y'
  42. SetGad TAGEdit.gc 4 On
  43.  
  44. xOnKey 'c'
  45. SetGad TAGEdit.gc 6 On
  46.  
  47. XTEXTIN 10 20 200 18   "_Title" title "" 30
  48. gadid 1
  49. GadTitle RIGHT
  50. SetGad TAGEdit.gc 2 On
  51.  
  52. XTEXTIN 10 40 200 18   "_Artist" artist "" 30
  53. gadid 2
  54. GadTitle RIGHT
  55. SetGad TAGEdit.gc 3 On
  56.  
  57. XTEXTIN 10 60 200 18   "A_lbum" album "" 30
  58. gadid 3
  59. GadTitle RIGHT
  60. SetGad TAGEdit.gc 4 On
  61.  
  62. XTEXTIN 10 80 200 18   "_Year" year "" 4
  63. gadid 4
  64. GadTitle RIGHT
  65. SetGad TAGEdit.gc 6 On
  66.  
  67.  
  68. TEXT 217 100 60 18 Genres 5 NOBOX
  69. TEXT 10 100 200 18   "Unknown" 30 BOX
  70. gadid 5
  71.  
  72. XTEXTIN 10 120 200 18   "_Comment" comment "" 30
  73. gadid 6
  74. GadTitle RIGHT
  75.  
  76. XListView 280 20 104 150 "_Genres" "genre" "$genresfile" 0 TXT
  77. gadid 7
  78. Update TAGEdit.gc 5 $genre
  79.  
  80. xButton 10 148 80 20 "_Open..."
  81. TAGOpen = 1
  82. editname = ""
  83. Set FilePattern #?MP3#?
  84. GuiWindow TAGEdit.gc WAIT
  85. ReqFile 10 10 300 256 "Choose MPEG Audio file" LOAD "editname" $editdefaultpath
  86. GuiWindow TAGEdit.gc RESUME
  87. IF $editname > ""
  88.    CLI '$editgetinfo $editname NA "" LFORMAT "echo %t > ENV:.t\\necho %a > ENV:.a\\necho %u > ENV:.u\\necho %y > ENV:.y\\necho %g > ENV:.g\\necho %c > ENV:.c" > T:Script'
  89.    CLI 'Execute T:Script'
  90.    Update TAGEdit.gc 1 $.t
  91.    Update TAGEdit.gc 2 $.a
  92.    Update TAGEdit.gc 3 $.u
  93.    Update TAGEdit.gc 4 $.y
  94.    Update TAGEdit.gc 5 $.g
  95.    Update TAGEdit.gc 6 $.c
  96.    genre = $.g
  97.    Update TAGEdit.gc 8 'Editing: $editname'
  98. ELSE
  99.    Update TAGEdit.gc 8 'Canceled'
  100. ENDIF
  101.  
  102. xButton 92 148 80 20 "_Save..."
  103. TAGOpen = 0
  104. editname = ""
  105. Set FilePattern #?MP3#?
  106. GuiWindow TAGEdit.gc WAIT
  107. ReqFile 10 10 300 256 "Choose MPEG Audio file" SAVE "editname" ""
  108. GuiWindow TAGEdit.gc RESUME
  109. IF $editname > ""
  110.    editcliarg = 'WRITE'
  111.    IF $title > ""
  112.       AppVar editcliarg ' T "$title"'
  113.    ENDIF
  114.    IF $artist > ""
  115.       AppVar editcliarg ' AR "$artist"'
  116.    ENDIF
  117.    IF $album > ""
  118.       AppVar editcliarg ' AL "$album"'
  119.    ENDIF
  120.    IF $year > ""
  121.       AppVar editcliarg ' Y "$year"'
  122.    ENDIF
  123.    IF $genre > ""
  124.       AppVar editcliarg ' G "$genre"'
  125.    ENDIF
  126.    IF $comment > ""
  127.       AppVar editcliarg ' C "$comment"'
  128.    ENDIF
  129.    CLI '$editgetinfo $editname $editcliarg > ENV:.TAGEdit.status'
  130.    Update TAGEdit.gc 8 '$.TAGEdit.status'
  131. ELSE
  132.    Update TAGEdit.gc 8 'Canceled'
  133. ENDIF
  134.  
  135. xButton 174 148 80 20 "C_lear"
  136. Update TAGEdit.gc 1 ""
  137. Update TAGEdit.gc 2 ""
  138. Update TAGEdit.gc 3 ""
  139. Update TAGEdit.gc 4 ""
  140. Update TAGEdit.gc 5 "Unknown"
  141. Update TAGEdit.gc 6 ""
  142. genre = "Unknown"
  143. Update TAGEdit.gc 8 'All entries cleared'
  144.  
  145.  
  146. TEXT 10 175 374 18   "Welcome to MP3 TAG Editor by M. van Dillen" 60 BOX
  147. gadid 8
  148.  
  149. TEXT 85 3 50 18   "MP3 TAG" 7 NOBOX
  150.  
  151. xOnFail
  152. IF $TAGOpen = 1
  153.    Copy T:Script ENV:.TAGEdit.status
  154. ENDIF
  155. Update TAGEdit.gc 8 '$.TAGEdit.status'
  156.  
  157.  
  158. ;-- Routines --
  159.  
  160. xRoutine Cleanup
  161. Delete ENV:.t
  162. Delete ENV:.a
  163. Delete ENV:.u
  164. Delete ENV:.y
  165. Delete ENV:.g
  166. Delete ENV:.c
  167. Delete ENV:.TAGEdit.status
  168. Delete T:Script
  169.